


// function Pa=antset_quad(Na,L,H); Ра - вектора координат антенной системы, 
// Na-число периферийны антенн. Антенные элементы с нечётными номерами
// расположены на расстоянииL=lambda/2 относительно друг друга по углам квадрата.
// Н - вектор вертикальных отклонений фазовых центров относительно "главной" антенны. 

// H=[];
// L=lambda/2;
// Na=3;


function Pa=antset_quad(Na,L,H)
if length(H)==1,
   H=H*ones(Na,1);
end;

Pa=zeros(Na,3);

Pa(1,:)=[0,L,0];
Pa(2,:)=[L,0,0]; 
Pa(3,:)=[L,L,0];


// k=1:3;
// plot(k,Pa(1,k),'or',k,Pa(2,k),'ob',k,Pa(3,k),'og'); grid

endfunction
